Component.NewsList <- function() {
  return(
    box(
      width = 4,
      title = tagList(icon("newspaper"), i18n$t("情報源リンク集")),
      collapsed = T,
      closable = F,
      collapsible = T,
      dataTableOutput("news") %>% withSpinner()
    )
  )
}